模态阶次数*endif*do,i_mode,1,nummodes*get,FREQ_%i_mode%,MODE,i_mode,FREQ ! 提取各阶次模态频率*enddo*get,totalMass,ELEM,0,MTOT,'X' ! 提取模型总质量（注意单位）totalMass=totalMass*1000*do,i_mode,1,nummodes !

(j,i)=efflam enddo ddsdde(i,i)=2.d0*effg+efflam end do do i=4,ntens ddsdde(i,i)=effg end do do i=1,ntens do j=1,ntens ddsdde(j,i)=ddsdde(j,i)+